﻿Imports VSModel
Partial Class Control_WhatCookToDay_ArticalLasted
    Inherits System.Web.UI.UserControl

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            LoadArticalLasted()
        End If
    End Sub
#Region "Sub and function"

    Sub LoadArticalLasted()
        Using ssmdt As New VSEntities
            Dim fm = (From f In ssmdt.formulae Where f.StatusId = 3 Order By f.PublishedDate Descending Select f.Title, f.QueryString, f.Description, f.Created, f.Viewed, f.Id, f.FormulaTypeId).Skip(0).Take(5).ToList

        End Using
    End Sub
#End Region
End Class
